home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / smalltlk.zip / PRELUDE / POINT.P < prev    next >
Text File  |  1990-09-13  |  2KB  |  100 lines
  1. temp <- <primitive 110 21 >
  2. <primitive 112 temp 1        " y: " \
  3.     #( #[ 33 97 245] \
  4.     #(  ) ) >
  5.  
  6. <primitive 112 temp 2        " y " \
  7.     #( #[ 17 243 245] \
  8.     #(  ) ) >
  9.  
  10. <primitive 112 temp 3        " x:y: " \
  11.     #( #[ 33 96 34 97 245] \
  12.     #(  ) ) >
  13.  
  14. <primitive 112 temp 4        " x: " \
  15.     #( #[ 33 96 245] \
  16.     #(  ) ) >
  17.  
  18. <primitive 112 temp 5        " x " \
  19.     #( #[ 16 243 245] \
  20.     #(  ) ) >
  21.  
  22. <primitive 112 temp 6        " transpose " \
  23.     #( #[ 5 53 160 17 11 50 16 11 51 243 245] \
  24.     #(  ) ) >
  25.  
  26. <primitive 112 temp 7        " printString " \
  27.     #( #[ 16 169 48 11 17 17 169 11 17 243 245] \
  28.     #( ' @ '  ) ) >
  29.  
  30. <primitive 112 temp 8        " min: " \
  31.     #( #[ 5 53 160 16 33 10 49 207 11 50 17 33 10 50 207 \
  32.  11 51 243 245] \
  33.     #(  ) ) >
  34.  
  35. <primitive 112 temp 9        " max: " \
  36.     #( #[ 5 53 160 16 33 10 49 12 16 11 50 17 33 10 50 \
  37.  12 16 11 51 243 245] \
  38.     #(  ) ) >
  39.  
  40. <primitive 112 temp 10        " dist: " \
  41.     #( #[ 16 33 10 49 193 10 44 17 33 10 50 193 10 44 192 \
  42.  10 43 243 245] \
  43.     #(  ) ) >
  44.  
  45. <primitive 112 temp 11        " asString " \
  46.     #( #[ 16 10 16 48 11 17 17 10 16 11 17 243 245] \
  47.     #( ' @ '  ) ) >
  48.  
  49. <primitive 112 temp 12        " abs " \
  50.     #( #[ 5 53 160 16 173 11 50 17 173 11 51 243 245] \
  51.     #(  ) ) >
  52.  
  53. <primitive 112 temp 13        " // " \
  54.     #( #[ 5 53 160 16 33 11 18 11 50 17 33 11 18 11 51 \
  55.  243 245] \
  56.     #(  ) ) >
  57.  
  58. <primitive 112 temp 14        " / " \
  59.     #( #[ 5 53 160 16 33 190 11 50 17 33 190 11 51 243 245 \
  60. ] \
  61.     #(  ) ) >
  62.  
  63. <primitive 112 temp 15        " - " \
  64.     #( #[ 5 53 160 16 33 10 49 193 11 50 17 33 10 50 193 \
  65.  11 51 243 245] \
  66.     #(  ) ) >
  67.  
  68. <primitive 112 temp 16        " + " \
  69.     #( #[ 5 53 160 16 33 10 49 192 11 50 17 33 10 50 192 \
  70.  11 51 243 245] \
  71.     #(  ) ) >
  72.  
  73. <primitive 112 temp 17        " * " \
  74.     #( #[ 5 53 160 16 33 194 11 50 17 33 194 11 51 243 245 \
  75. ] \
  76.     #(  ) ) >
  77.  
  78. <primitive 112 temp 18        " = " \
  79.     #( #[ 16 33 10 49 201 252 5 17 33 10 50 201 243 245] \
  80.     #(  ) ) >
  81.  
  82. <primitive 112 temp 19        " >= " \
  83.     #( #[ 16 33 10 49 203 252 5 17 33 10 50 203 243 245] \
  84.     #(  ) ) >
  85.  
  86. <primitive 112 temp 20        " <= " \
  87.     #( #[ 16 33 10 49 200 252 5 17 33 10 50 199 243 245] \
  88.     #(  ) ) >
  89.  
  90. <primitive 112 temp 21        " < " \
  91.     #( #[ 16 33 10 49 199 252 5 17 33 10 50 199 243 245] \
  92.     #(  ) ) >
  93.  
  94. <primitive 98 #Point \
  95.     <primitive 97 #Point #Magnitude #\smalltlk\prelude\point.st \
  96.     #(  #xvalue #yvalue ) \
  97.     #( #y: #y #x:y: #x: #x #transpose #printString #min: #max: #dist: #asString #abs #// #/ #- #+ #* #= #>= #<= #<  ) \
  98.     temp 3 4 > >
  99.  
  100.